' This code determines what slide is currently visible in the
' slide show and then it clears the print range and prints out the
' current slide.
Sub PrintCurrentSlide()

   ' Declare lSldNum as a long integer.
   Dim lSldNum As Long
   
   ' Assign lSldNum to the current slide number.
   lSldNum = SlideShowWindows(1).View.Slide.SlideNumber

   ' Set the print options for the active presentation.
   With ActivePresentation.PrintOptions
   
      ' Select the printer
      .ActivePrinter = "\\BWPRINT\BernersLee"

      ' Set RangeType to print a slide range.
      .RangeType = ppPrintSlideRange

      ' Delete old print range settings.
      .Ranges.ClearAll

      ' Set Ranges to the new range for the current slide.
      .Ranges.Add lSldNum, lSldNum
   End With

   ' Using the current print settings print the slide to the default
   ' printer.
   ActivePresentation.PrintOut

End Sub